[Day-22] R語言 - 分群應用(三) 相異點偵測 ( detect dissimilar point by clustering in R.Studio )

2021 iThome 鐵人賽

DAY 22

影片教學

R語言-分群(clustering)的實戰應用系列第 22 篇

[Day-22] R語言 - 分群應用(三) 相異點偵測 ( detect dissimilar point by clustering in R.Studio )

13th鐵人賽 r語言 r 相異點分群

Denny Chang

2021-09-22 19:39:13

1250 瀏覽

分享至

您的訂閱是我製作影片的動力
訂閱點這裡~

影片程式碼

## 應用三: 相異點偵測 ####
library(clustMixType)
data(iris)
iris_n <- iris[,-5]
iris_n <- as.data.frame(scale(iris_n)) #前置2: standard norm 標準化
iris <- cbind(iris_n,iris$Species)
kp <- kproto(iris, 10)
kp_out <- as.data.frame(kp$cluster) #大好
final <- cbind(iris,kp_out)

out <- final %>% 
       group_by(`kp$cluster`) %>% 
       summarise(筆數=n())

done <- final %>% 
        subset(`kp$cluster`!=4)

若內容有誤，還請留言指正，謝謝您的指教